home *** CD-ROM | disk | FTP | other *** search
- /* Program Editor for OS/2 Install Utility */
- /* !!!!! DO NOT RUN ON ITS OWN !!!!! */
- '@Echo Off'
- Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
- Call SysLoadFuncs
- Signal On Failure Name FAILURE
- Signal On Halt Name HALT
- Signal On Syntax Name SYNTAX
- Call SysCls
- Say 'Please Wait'
- arg directory
- say directory
- type = 'WPProgram'
- title = 'Program Editor'
- parms = 'MINWIN=DESKTOP;CCVIEW=YES;PROGTYPE=PM;EXENAME='directory'\pmproged.EXE;STARTUPDIR='directory';OBJECTID=<PMPROGED>;NOPRINT=YES;'
- result = SysCreateObject('WPFolder','Program Editor for OS/2','<WP_DESKTOP>','OBJECTID=<PMPEFOLD>','Replace')
- if result = 1 then
- Say 'Created Folder.'
- result = SysCreateObject(type,title,'<PMPEFOLD>', parms,'Replace')
- if result = 1 then
- Say 'Created Program.'
- exit
-
- Say 'ERROR: Unable to create objects. Installation cancelled.'
- Exit
-
- FAILURE:
- Say 'ERROR:- Installation failed.'
- Signal DONE
- HALT:
- Say 'ERROR:- Installation failed.'
- Signal DONE
- SYNTAX:
- Say 'ERROR:- Installation failed.'
- Signal DONE
- DONE:
- Exit